unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSpreadSheetCore, dxSpreadSheetFormulas, dxSpreadSheetFunctions,
  dxSpreadSheetGraphics, dxSpreadSheetClasses, dxSpreadSheetTypes,
  dxSkinscxPCPainter, dxBarBuiltInMenu, Menus, dxSpreadSheet;

type
  TForm1 = class(TForm)
    Menu_1: TMainMenu;
    dxSpreadSheet1: TdxSpreadSheet;
    Menu_N1: TMenuItem;
    Menu_N2: TMenuItem;
    Menu_N3: TMenuItem;
    procedure Menu_N2Click(Sender: TObject);
    procedure Menu_N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Menu_N2Click(Sender: TObject);
var
  OD:TOpenDialog;
begin
  try
    OD:=TOpenDialog.Create(nil);
    if OD.Execute then
    begin
      Self.dxSpreadSheet1.LoadFromFile(OD.FileName);
    end;
  finally
    FreeAndNil(OD);
  end;
end;

procedure TForm1.Menu_N3Click(Sender: TObject);
var
  CellA:TdxSpreadSheetCell;
begin
  with dxSpreadSheet1 do
  begin
    //
  end;
end;

end.
